home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / ac174v13.zip / RSB5CHAT.MRG < prev    next >
Text File  |  1992-07-24  |  2KB  |  45 lines

  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. *          ANSIChat (c) 1992 by Richie Molinelli
  5. * ------------[ Created 07-24-1992 12:49:48 ]------------
  6. * REPLACING old line(s) by new
  7. 63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
  8. ' $PAGE
  9. '
  10. '  NAME    -- TestANSI
  11. '                                  MEANING
  12. '  INPUTS  -- ZTestANSITime   # of seconds to wait for ANSI response
  13. '                             0 = do not test for ANSI
  14. '
  15. * ------[ first line different ]------
  16. '  OUTPUTS -- ZANSITest       = True if ANSI Detected                ' CHAT174
  17. '
  18. '  PURPOSE -- Test callers' software for support of ANSI graphics
  19. '
  20.       SUB TestANSI STATIC
  21.       IF ZTestANSITime < 1 THEN _
  22.          GOTO 63705
  23.       IF ZLocalUser THEN _
  24.          IF ZDOSAnsi THEN _
  25.             GOTO 63710 _
  26.          ELSE GOTO 63705
  27.       CALL FlushCom(Temp$)
  28.       CALL PutCom (ZEscape$ + "[6n")
  29.       CALL DelayTime(ZTestANSITime)
  30.       CALL WipeLine (5)
  31.       CALL FlushCom(Temp$)
  32.       CALL WipeLine (5)
  33.       Temp = INSTR(Temp$,ZEscape$ + "[")
  34.       IF Temp > 0 THEN _
  35.          Temp = INSTR(Temp,Temp$,"R") : _
  36.          IF TEMP > 0 AND TEMP < 9 THEN _
  37.             GOTO 63710
  38. * REPLACING old line(s) by new
  39. 63710 CALL SetGraphic(2)
  40.       ZHiLiteOff = ZFalse
  41.       CALL QuickTPut1 ("ANSI detected")
  42. * ------[ first line different ]------
  43.       ZANSITest = ZTrue                                              ' CHAT174
  44.       END SUB
  45.